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ABSTRACT 

The Core Compare program is a NOVA utility routine which 
compares a binary forroat tape read in on either the paper 
tape reader or the ASR reader with the contents of core 
ineroory. If there are any differences, the address, tape 
contents and core contents are printed on the Teletype. Core 
contents are left unchanged. 
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1. REQUIREfiEMTS 

1.1 Memory 

IK or larger alterable ineiiory. 

1.2 Equlpnient 

Teleprinter output and either paper tape reader or 
Teletype reader, 

1. 3 Ejcterpal Subroutines 

None 

1.4 Other 

None 

2. OPE RAT IMG PROCEDUi^ 

2. 1 Calling Segiience 

The Core Compare program must be loaded in the standard 
manner (see Binary Loader, 093-000003). 

a. Place the binary tape to be compared in the 
input device (Teletype ASR reader or high- 
speed reader) . 

b. Set the data switches to 07400 and press BESET. 

c. If using the high-speed reader, set data switch 
to a 1. 

d. Press START. The program will type a carriage 
return, line feed, and begin reading the tape. 

2.2 Input Format 

Standard binary format tape. 



-.3- 

2, 3 Output Format 

The output of the Core Compare program is a listing 
of all differences between the contents of the tape 
being read and the contents of core roeroory in the 
follo\/ing formats 

^AAAA/ TTTTTT ^r- CCCCCC 

where: h* s represent the address 

T*s represent the contents of the tape 
C*s represent the contents of core 

All numbers are printed in octal. 
2.4 Error Returns 

The checksum information on the binary tape is 
verified by the Core Compare program. If a check- 
sum error is detected, the program will execute a 
HALT instruction at location 07474 and 0747 5 will 
be displayed in the Address Lights. The block in 
error may be reread by repositioning the tape in 
the reader and pressing CONTINUE. 

I^Jhen the tape has been completely read, the prociraiii 
will execute a HALT instruction at location 07433 
and 07434 will be displayed in the Address Lights. 

2*5 State of Active Registers upon Exit 

Not applicable 

2.6 Cautions to User 

None 

3. Discussion; 

3.1 ^Iqorithins 

The Compare program reads the binary input tape in 
a manner identical to that used by the Binary Loader. 
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Instead of storing the word read from tape into 
core, it is compared with the word in core. If 
the tv.'o words are unequal, control passes to a 
routine which prints the output line on the 
Teleprinter. After completion, this routine goes 
to read the next word from tape. 

3.2 Limitations and Accuracy 
Fot applicable 

3. 3 Size and Tiroing 

The routine requires 173 (octal) words of storage. 
Its speed is limited by the input and output devices. 

3.4 References 

See the Binary Loader write-up (093-000003) for a 

description of the binary tape format. 

3.5 Flow Diaqrams 
Not applicable 

4. EX^JVIPLES mm APPLICATIONS 

During program debugging, it is often useful to know if 
any program locations have been altered. The Core Compare 
program provides a means for obtaining this information, 
i.e. for obtaining information for a "post-inortero" analysis 
of program failures. 

The ^SCII source tape (090-000010) is provided to enable the 
user to create versions of the program with different origins 

5. PROGimM LISTING 

h listing of the program with an origin of 07400 follows. 



5.s;^.-^'C8>=TTi 



%im A SJ.^rARY TAPE 





007ACS0 


.LOG 74ii 




§'?4?0 


a;a0443 


START J 


JMP BEGIN 


ISTART THE PROGRAM 






JSUBROUTIWE TO BUILD A 


WtJRO m AC2 


7401 


0S4423 


BUILDS 


STA 3#TErJpi 


J SAVE RETyRN 


7482 


0C'?4406 




JSR 6TCHR 


JGET FIRST BYTE 


C5 7403 


! 71300 




MOVS 3 #2 


IPUT IMTO LH OF AC2 


7404 


0S4494 




JSR GTCHR 


JGET NEXT BYTE 


748 5 


173300 




ADOS 3*2 


J FORM WORD IN AC2 


07496 


! 43009 




ADD 2fW 


J ADD INTO CHECKSUM 


0740? 


S02415 


IREA0 A 


JMP tTEHPl 
BYTE INTO AC3 


lAND RETyRN 


37^10 


054415 


GTCHR? 


STA 3fTEmF2 


ISAVE KSTURN 


0741 I 


034415 




LOA 3^ SAVE 


JTEST WHICH DEVICE 


07412 


175103 




I^OVL 3*3#SNC 




741.3 


S-004t55 




JHF »4-5 


ITTI 


7^1 /i 


063612 




SKPDfJ FTR 


IPTR 


0741 S 


80S 7 77 




JMP .-1 




7 4" * "''■! 


674512 




D!^S 3#PTR 


J READ A^D START 


£d?4i7 


802406 




JK=P flEMPE 


iawd' return 


«742i 


§63610 




SKPON TTI 




§7421 


00-07 77 




jr^p •-! 




07422 


074510 




»IAS 3i»TTI 


JREAB AND START 


«7423 


if24i2 




JrtP §TE^P2 


lAWD RETURN 


§7424 


«i«8TO 


TEriPl 1 


8 




§7425 


»00»§» 


TEMF2 t 


« 





07426 ig§««a SAVES 







I TEST BLOCK TYPE 



87427 


125224 


TESTS 


MOVER l#l*S2R 


. 1 1 =ST, 


07430 


»i84§5 




jrF IGI^OR 


INO* 


§7431 


lil0»4 




MOV 0#0#S2R 


ITEST 


§7432 


iii442 




JWP CHKER 


lERRO. 


§7433 


»63i77 




HALT 


IHALT 


07434 


80i777 


1 IGNORE 


BLOCK 


IDON*' 


«7435 


994153 


IG^ORS 


JSR GTCHR 


IREAD 


§7436 


i2i4i4 




LDA §#C377 


JONES 


§7437 


186404 




SUB i#l#SER 




07440 


00»775 




J«P IGNOR 




§7441 


0»«41g 




JMP BLOCK 




§7442 


§00377 


C37I5 


377 





ftRT BLOCK 
IGNORE BLOCK 

THE CHECKSUM 
R 

T PROCEED 



yWTIL AN ALL 
BYTE IS SEEN 



f f f 







ISTART 


OF PRO'?HA*'^ 


07443 


062677 


BEG IN f 


iORST 


7444 


604 77 




Rr^ADS w 


07 445 


8 40 7 6! 




3TA fL-SAl^E 


7446 


t^ 6'^ ! 1 




{\M03 TTI 


VHAAl 


fl6?5! 12 




Ml 05 J^TH 


^1-<^'S^ 


004454 




cr;R ?:^LF 


07 45 t 


05^4737 


BLOCKS 


J5:ij C:"'Qi.>o 


7452 


1 65^793 




r.OVS 3.f 1 ^S?<R 


074i>3 


C^?5?'17?6 




.*^HP P' 0*^K 


07434 


CiS4734 




JSR GTCHR 


07455 


t A7330 




ADOS s3jI 


f37/-S -■ 


1 2IS>^-3 




riOV 1 .-0 


B1457 


0047^2 




JSH SuiLi) 


07460 


?o0-4^3 




STA 2..A:if)RS 


07461 


C^?54 720 




JSR BIJILO 


S7462 


185113 




WOVL# !*t#SWC 


07463 


000744 




JI^P TEST 


B1A64 


004715 


DATA 1 ' 


JSR Bui to 


07465 


036436 




LOA 3.~fAi:j:jriS 


07466 


156414 




SOSf 2#3.-SaR 


i7467 


003407 




JHP ERROR 


07470 


0I«5433 


OATA0 1 


13^ ADDRS 


«3747l 


125494 




IMC I^1#SER 


07472 


000772 




jrP DATA 


07473 


1015504 




MOV g*i*S2R 


07474 


06307 7 


CHKERl 


HALT 


07475 


609754 




jmp BLOCK 



JRESET 

IREAD THE SWITCH REGISTER 
lANO SAVE IT FQR **6TCHR" 
I START TTI 
I AND PTR 

ITYPE CARIilAGE RETURN* L*! 
I GET A BYTE 
JAND TEST FOR i 
IYES# KEEP HEADIWG 
JOK# GET NEMT BYTE 
■lAMO FORM COUNT IN AC I 
ISET CKECKSOM 
J GET ADDRESS \ 

IAB9 IW THE CHFXKSU^ 

ITEST BLOCKTYPE 

I NOT A DATA BLWK 

tQK^ 6ET OATA 

I GET rKO« WEIfORY 

lAUD COMPARE 

IT KEY ARE DIFFCeENT 

HMCREMEW ADDRESS 

ITEST THE COUNT 

I0K# GET NEKT 

I OK* TEST CHECKSUM 

ICHECKSUM ERROR 

I OK* GET NEKT BLOCK 



t ft 



07476 
747 7 

^ism 

B7m2 
875-33 

07505 

075^7 
07510 
0T5!1 
B1512 
07513 
t7S!4 

073 i 6 
87517 

0-1529 
07521 
g7522 
87523 



044472 
G 504 72 

fc04442 

8834 $3 
0^4434 

02443S 
094420 
€32407 

004405 
020459 
024453 
0§3746 

0mm9 






AODIS i 



$TA 
51 A 

4SR 
7-5 

jsn 

JSR 
7-6 
LDA 
.ISR 
LOA 
JSR 
7-6 
JSR 
LDA 
LDA 

t 



e WAS FoyHf>5 

I -SLASH 

SPACS 

OCTAL 

TY?S 
OCTAL 

CHLF 

i#ACSV 



PRINT IT 
^SAVS THS AC'S 



iHHD PRiyiT IT 
15 OCTAL DIGITS 
ITYPT ''/"* 

I TYPE A SP AC?. 
iC-iET CCK':?>rXT ^ALyC 



lANO TYPE AS 6 PI6ITS 
I TYPE *'•!-■*« *» 



I GST rr:AT IS ^OM IM CORE 
JAW0 TYPE A3 
16 DIGITS 
iTYptr CRt LP 

IRESTOFSI: ACi^ACI 
lANO PIOCEEO 



07524 
0752S 
©7526 
S752? 
0753f 
0733! 



t 719^0 
034412 
0§44S5 
024411 
S04433 



I TYPE 
CRLFi 



ce*Lr 

LOA 
JSR 

JSR 



3*2 

I#C15 

TYPE 

TYPE 
»#2 



ISAVE RETURN 

I6ET ntwun 

lANO PRINT IT 
I6ET LINE-fECD 
lAND TYPE IT 
lAMO RETURN 



ITYPE A SPACE 
§7532 BB4497 SPACES LDA l#C4i 



I6ET VALUE 



5TYPS CCACll 



375S3 S63SII TYPE- 



07S3^ 
ir-?533 
07S36 
07537 

C754I 



Q-|5^7 77 



CI 5 s 
C4Bf 



SKFE4E TTO 
J HP . -! 
OCAS l^TTO 

15 
12 
4« 



07542 009057 SLASH s ••/ 

07543 S<3^I37 AHROi^'s '•^ 



I WAIT FOR TTO OOWE 

IT¥FE CCACI > 
JAWO RETURN 



f ft 



i0f;TAL PRi>irr:H 
lAcw^Mu^s'-rs: TO m: priweo 
ical;%-«-i -■"-*Hy^::--:H of octal digits 



7S46 

07347 

07553 

07551 

07552 

07553 

0T354 

07555 

§7S56 

f7357 

07563 



054656 

024710 
!aS400 

1 51220 
603 642 



mr'kht 



67564 
ff7567 



Bt464B 
0<5a744 



OCT LI I 



CICTL2 I 



SUSHK 2r2*S»<P 
SisB 2..C-»-SXP 
LDA 1 .-SLASH 

JMF #-4 
JSR 0CTLJ5 

WOVcR S^g 

J¥P OCTtI 
JliP §TEH?g 



ISAVE CCCALL*! ) 



li'KT A BIT l« 



UCATION 9 



I GET ''i-l 



\ 

ADD 



sconprnf. 

I TOO S^•-ALL# ADD I TO DIGIT 
lOUTPUT THIS OIGIT 

IAfll> H9VE THE OuTPiiT 

II OCTAL DIGIT 70 
IT HI-: RIGHT 

*00 THE ^SEXT 

I ALL BQHE^ EXIT 



AC! IF K'vT 
DS'£ TLHPI 

IS£ TEH?! 

JUP TYPE 



I TEST FOR iGmQume 

l¥ES# RET«RM 
|0K# SET SWITCH 
I AND TTPE IT 



figi«3 ACS VI 



*BLK 3 



^EWB 



